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IDENTIFICATION 

PRODUCT CODE: AC-ES02A-MC 

PRODUCT NAME: CZTUTAO TMO3/TU4S UTILITY DRIVER 
DATE CREATED: 25 MAY 1978 

MAINTAINER: CSS - NASHUA 

AUTHOR: J. G. ADAMS/R. J. COLLINS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES WO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975,1976,1977, 1978 BY DIGITAL EQUIPMEN CORPORATION 
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1. 


ABSTRACT 


THIS PROGRAM IS INTENDED AS A BRUTE FORCE ROUTINE 

TO EXECUTE AN OPERATION OR SERIES OF OPERATIONS, CONTINUOUSLY 
REGARDLESS OF THE RESULTS OF THE OPERATION. BECAUSE 
OF THE COMPLEXITY OF THE TU4S MAG TAPE SYSTEM AS 
OPERATED ON THE MASSBUS, IT IS NOT ALWAYS POSSIBLE TO 
PROVIDE FOR EVERY CONTINGENCY IN THE NORMAL PROGRAMS. 
THEREFORE THIS UTILITY DRIVER WILL ALLOW AN OPERATOR 
TO EXECUTE ANYTHING DESIRED IN ANY ORDER. THERE ARE 
NO ERROR CHECKS OR PRINTOUTS MADE, AND ANY VARIATION 
FROM PRESET SEQUENCES AND VALUES ARE MADE BY 

CHANGING THE APPROPIATE MEMORY LOCATIONS. 


REQUIREMENTS 


HARDWARE : 

A. ANY PDP-11 PROCESSOR - WITH OR WITHOUT HARDWARE SWITCH REGISTER. 
B. RH MASSBUS CONTROLLER 

C. TMO2/TMOS MAG TAPE CONTROLLER 

D. AT LEAST ONE (1) TU45 SLAVE 

STORAGE : 

THIS PROGRAM REQUIRES AT LEAST 3K OF CORE 


LOADING PROCEDURE : 


USE STANDARD BINARY LOADING PROCEDURE 
STARTING PROCEDURE 


THE PROGRAM IS ALWAYS STARTED AT LOCATION 200 (8) 


***LO0C. 176 (SWREG) IS DEFINED AS THE SOFTWARE SWITCH REGISTER 
(REFER TO SECTION 5 FOR MORE DETAIL) 


eeeIF THE SOFTWARE SWITCH REGISTER IS USED THE DIAGNOSTIC TYPES OUT THE FOLLOWING 
MESSAGE; SWR=XXXXXX NEW= (REFER TO SECTION 5 FOR OPERATOR OPTIONS) 
AT THE START OF THE PROGRAM. 
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5. CONSOLE SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL : 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

DOING THE FOLLOWING: 


1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


AFTER THE **NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 


(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 


$W15 (100000) : yg HBAs EACH OPERATION 

$W14 (040000) : 1=STOP AT THE END OF THE OPERATION SEQUENCE 
O=PROCEED 

$W13(020000): 1=IGNORE END OF TAPE (EOT) 
O=REWIND AT END-OF TAPE (EOT) 


HALT 


***TO CHANGE THE CONTENTS OF SWREG TYPE < G> BEFORE PRESSING CONTINUE AFTER A HALT. *** 


SEQ 0004 
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6. OPERATION 


THE PROGRAM OPERATION IS QUITE SIMPLE, BUT DOES 
REQUIRE THE OPERATOR TO HAVE KNOWLEDGE OF THE 

TU45 TAPE SYSTEM AS OPERATED ON THE RH MASSBUS 
CONTROLLER. THE OPERATOR MUST BE ABLE TO DECIDE 
WHICH SEQUENCE OF OPERATION IS REQUIRED, AND 

WHAT VALUES TO ASSIGN TO THE VARIOUS PARAMETERS 
REQUIRED TO EXECUTE THEM. THE OPERATION SEQUENCE 

IS SET UP BY LOADING A TABLE WITH THE FUNCTION 

CODES OF THE DESIRED OPERATIONS AND SETTING THE 
NUMBER OF OPERATIONS IN A COUNTER. THE PROGRAM IS 
SET UP TO DO A WRITE OF TEN (8) WORDS OF ALL 

ONES DATA TO SLAVE ZERO (0) ON DRIVE ZERO (0) IN 

PE (1600 BPI) WITH A_NINE TRACK NORMAL DATA FORMAT. 
THE DATA ADDRESS IS 3000 (8). THE OPERATION SEQUENCE 
IS SET TO DO A SINGLE WRITE. IF LOADED AND STARTED 
AT 200 (8) WITH NO CHANGES MADE AND SWITCH 14 AND 15 
SET TO A ZERO (0), THIS OPERATION WILL BE EXECUTED 
CONTINUOUSLY. 

THE FOLLOWING IS THE LIST OF PARAMETERS WHICH MAY 

BE VARIED AND A DESCRIPTION OF EACH ALONG WITH THEIR 
CORE LOACATION: 


PARAMETER LOCATION DESCRIPTION 
RH ADDRESS 600 ADDRESS OF RH (THE FIRST REGISTER ADDRESS: CS1) 
DRIVE NUMBER 700 SET TO SELECT TMO2/TMOS NUMBER ADDRESS 0-7 
UNIT DESCRIPTION 702 SET SELECTED SLAVE NUMBER (0-7) IN BITS 0.1.2 
SELECT PARITY IN BIT 3 (O=0DD 1=EVEN) 
SELECT DATA FORMAT IN BITS 4,5,6.7 
SEL_CT DENSITY IN BITS 8,9,10 


FRAME COUNT SET NUMBER OF FRAMES TO WRITE PER WORD COUNT AND FORMAT 
IN TWOS* COMPLIMENT 


WORD COUNT SET NUMBER OF WORDS TO BE TRANSFERRED IN TWOS* COMPLIMENT 
READ ADDRESS SET DESIRED ADDRESS FOR START OF READ BUFFER. 
WRITE ADDRESS SET DESIRED ADDRESS FOR START OF WRITE BUFFER. 
READY DELAY THIS DELAY VALUE IS USED BY THE PROGRAM TO ESTABLISH 
A MAXIMUM TIME TO AWAIT THE COMPLETION OF AN OPERATION 
BEFORE PROCEEDING TO THE NEXT. **(DEFAULT IS APPROX 435 MS FOR PDP-11/20)** 
READY MULTIPLIER IF THE VALUE SET INTO 714 DOES NOT ALLOW ENOUGH TIME, 
INCREASE THE SIZE OF THE MULT’PLIER. EACH INCREMENT OF THE 


MULTIPLIER WILL CAUSE THE 714 DELAY TO BE EXECUTED 
THAT MANY MORE TIMES. 
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OPERATION DELAY 720 THIS DELAY IS USED TO ALLOW FOR SOME AMOUNT OF 
TIME BETWEEN THE EXECUTION OF EACH OPERATION. IT IS 
LOADED AND USED JUST AS IN THE READY DELAY(714) 
** (DEFAULT IS APPROX 54 MS FOR PDP-11/20)** 


OPER MULTIPLIER 722 THIS IS USED JUST AS THE READY DELAY MULTIPLIER(716) 


OPERATION NUMBER 724 THIS IS THE NUMBER OF OPERATIONS TO BE PERFORMED 
IN A SEQUENCE AND SHOULD REFLECT THE NUMBERS 
OF OPERATIONS SET INTO THE OPERATION TABLE. 


OPERATION TABLE 740-770 THIS TABLE (CONSISTING OF 15 LOCATIONS) IS TO BE 
LOADED WITH THE FUNCTION CODES FOR EACH OPERATION 
TO BE PERFORMED IN SEQUENCE. THE NUMBER OF ENTIRES 
MAY BE FROM ONE (1) TO FIFTEEN (15). MAKE SURE THAT 
THE NUMBER OF FUNCTION CODES SET IN THE TABLE IS REFLECTED 
BY THE NUMBER IN LOCATION 724 (OPNUM) 


FUNCTION CODES 


20=READ IN PRESET 
ee LINE 


CLEAR 

TAPE MARK 

FORWARD 

REVERSE 

CHECK FORWARD 

CHECK REVERSE 

FORWARD 
70=READ FORWARD 
76=READ REVERSE 
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6.2 


6.3 


6.4 


6.5 


DATA FORMATS (BIT 7,6,5,4 OF UNIT DESCRIPTION) 


14=NINE TRACK NORMAL: 2 FRAMES PER WORD 
15=CORE DUMP: 4 FRAMES PER WORD 


DENSITY (BITS 10,9,.8 OF UNIT DESCRIPTION) 
4=1600 BPI:PE (PE USES ONLY ODD PARITY) 
3=800 BPI:NRZI 

2=800 BPI:NRZI (TU4SS ONLY) 

1=556 BPI:NRZI (TU4S ONLY) 

0=200 BPI:NRZI (TU4S ONLY) 

PARITY (BIT 3 OF UNIT DESCRIPTION) 


1=EVEN PARITY 
O=0DD PARITY 


SLAVE SELECT (BITS 2,1,0 OF UNIT DESCRIPTIONS) 
SET TO DEVICE SLAVE ADDRESS (0-7) 
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SEG 0007 
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7.2 
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PROGRAM DESCRIPTION 


IN ORDER TO MAINTAIN THE CONTINUOUS EXECUTION OF 
ao nr DESCRIBED THE PROGRAM IS ORGANIZED AS 
L : 


START 

INITIALIZE THE RH 

SET UP TAPE PARAMETERS (DENSITY, PARITY, FORMAT: WORD COUNT, FRAME COUNT, BUS ADDRESS) 
SELECT DEVICE TO TEST (DRIVE NUMBER, SLAVE NUMBER) 

EXECUTE OPERATION (SET FUNCTION AND FROM OP TABLE AND SET GO=1) 
AWAIT END OF OPERATION (READY DELAY) 

STOP IF SWITCH 15=1 

DO OPERATION DELAY (OP DELAY) 

STOP IF LAST OPERATION IN SEQUENCE AND SWITCH 14=1 

POINT TO NEXT FUNCTION CODE IN OP TABLE 

JUMP BACK TO START 


FLOW: START: HOUSEKEEPING 


INIT: CLEAR MASSBUS AND TMO2/TMO3 

SET UP: SET UP REQUIRED REGISTERS 

EXECUTE: SET FUNCTION AND GO=1 

AWAIT END: LOOP ON DRY=1 AS LONG AS ALLOWED BY READY DELAY 
STOP: IF SWITCH 15=1 


DELAY PER OP DELAY 

END OF RSEQUENCE? IF NOT JUMP TO START 
STOP: IF SWITCH 14=1 

JUMP TO START RESTART SEQUENCE 


VARIATIONS: THERE ARE TWO VARIATIONS MADE FROM THIS FLOW. 
BOTH ARE CAUSED BY A PARITCULAR FUNCTION CODE. 
IF A READ REVERSE IS TO BE EXECUTED, THEN THE 
BUS ADDRESS IS INCREMENTED BY THE SIZE OF THE 
RECORD BECAUSE THE DATA IS LOADED INTO MEMORY 
IN REVERSE (I.E: HIGH ADDRESS TO LOW ADDRESS) 
THE SECOND VARIATION IS CAUSED BY A SPACE (FORWARD =a REVERSE) 
OPERATION AND IT IS THAT THE FRAME COUNTER IS SET of 
SO THAT ONLY ONE (1) RECORD IS SPACED OVER. IF You. visi 
TO SPACE OVER MORE THAT ONE (1) RECORD, SET LOCATION 1100 (8) 
TO THE TWOS' COMPLIMENT OF THE NUMBER OF RECORDS DESIRED. 


LISTING 


«LIST BIN,LOC,SEQ 


SEQ 0008 


J 
TU45 UTILITY DRIVER vty 30(1046) 13-JUN-78 13:51 PAGE 9 
CZTUTA.P11 13-JUN-78 11:16 SEQ 0009 


- TITLE TU45 UTILITY DRIVER 
;CZTUTAO 
725 MAY 78 
zJ. G. ADAMS/R. J. COLLINS 
sREVISED APRIL ,1976 BY S. CARPENTER 
3 1) SUPPORTS SOFTWARE SWITCH REGISTER 
2) SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 
“REVISED apa 1977 BY J. G. ADAMS 


: as T)DOCUMENTATION CHANGES TO REFLECT TMO3/TU4S CAPABILITY 
A 


CONSOLE SWITCHES 

: SW 15=1(100000) STOP ON EACH OPERATION 
0 CONTINUE 

isu 14=1 (040000) ye as OF SEQUENCE 


SW 13=1(020000) IGNORE END OF TAPE (EOT) 
OQ REWIND AT END OF TAPE (EOT) 


sREGISTER EQUIVES 
000000 


000007 
000046 24 
000046 000170 RESTART: sALLOW RESTART WHEN <LF> IS PRESSED 


:DURING CHANGING OF SWREG IF SOFTWARE SWITCH 
sREGISTER IS USED. 


SOFTWARE SWITCH REGISTER*ttetererer 
000176 -=176 
000176 000000 SWREG: 0 SOFTWARE SWITCH REGISTER 


FRR AEA AAAAAA AA AAAA AAA AAAAAAAAAAAAAAAERAAERAEEEAEEERERAEEE 


THIS PROGRAM SUPPORTS THE SOFTWARE SWITCH REGISTER LOC.176. 
sREFER TO SECTION 5 OF DOCUMENT FOR DESCRIPTION 


FETA AERA AAA AERA AERA REAR AAA A AAA AEREEAAERAEEAAEEEEE 


STARTING ADDRESS 


366 000200 -=200 
367 000200 000167 001110 JMP SETUP 
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000600 -=600 


3TMO2/TMO3 REGISTERS 
172440 : 172440 


172472 : 172472 
:PROCESSOR ADDRESSES 


000634 177776 : 177776 sPROCESSOR STATUS 
000636 177570 : 177570 SWITCH REGISTER 


TTY REGISTERS 


177560 : 177560 : TTY READER STATUS 
: TTY READ BUFFER 
: TTY PUNCH STATUS 
177566 : 177566 TTY PUNCH BUFFER 
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000700 


000060 
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TEMPST: 


OPTBL: 


iL 
PAGE 11 


-=700 
SET PARAMETERS DESIRED FOR UNIT UNDER TESTeteee 


DRIVE NUMBER 
SLAVE DESCRIPTION 
FRAME COUNT 

WORD COUNT 

READ ADDRESS 
WRITE a 


sREADY DELA 

sREADY DELAY MULTIPLIER 
OPERATION DELAY 

OPERATION DELAY MULTIPLIER 


:NUMBER OF OPERATION (1 TO 15) 


OPERATION TABLEtterereree 

ENTER OPERATION SEQUENCE DESIRED. 
sMUST HAVE AT LEAST 1 OPERATION, AND 
sMAY HAVE UP TO 15(8). 

SET THE OPERATION COUNTER EQUAL 

TO THE NUMBER OF OPERATIONS IN 

THE SEQUENCE. 


oooooooooce°oo 


READ IN PRESET 
REWIND-OF FLINE 
EWIN 


D 
DRIVE CLEAR 
WRITE TAPE MARK 


SPACE FORWARD 

SPACE REVERSE 

WRITE CHECK FORWARD 
WRITE CHECK REVERSE 
WRITE FORWARD 

READ FORWARD 

READ REVERSE 


sFILL WITH OPERATION SEQUENCE 


SEQ 0011 
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001000 -=1000 
sSTART OF PROGRAMttteeeeeee 


001000 012706 000500 : #500,SP 
001004 012777 000340 177622 L] #340,aPSW 


001012 1777 OPNUM ,RO ;SET COUNTER 
#OPTBL RI SET POINTER 
177560 A: #40,aCs : INIT 

DRVN,aCS sDRIVE NUMBER 
UDES ,ac2 UNIT DESCRIPTION 
WCNT ,awc WORD COUNT 

177626 177526 FCNT,a@FC 7 FRAME ae 
(R1)+,R2 SET OP CODE 

000030 #30,R2 7 SEE - — FORWARD 


AA :IF SO: B 
000032 #32,R2 SEE IF SPACE REVERSE 
AO :1F NOT: BR 


177777 (177502 : #-1,aFC :SET TO Ay ONE RECORD 
000060 : #60,R2 SEE IF READ OP 


Al :1F SO: BR 
177574 177464 a SET WRITE ADDRESS 


177562 177454 $ RADDOR ,@BA SET READ ADDRESS 
000070 + lee SEE IF READ OPERATION 


4 :IF SO: BR 
177542 eee :GET FRAME COUNT 
177434 R3,aBA SET BUS ADDRESS FOR READ REVERSE 
000001 : #1,R2 SET GO BIT 
177414 R2,aC1 START OPERATION 


177522 RDYDX ,R4 SET DELAY MULTIPLIER 
177514 BO: RDYOLY ,R3 SET READY DELAY 
000200 177404 B: #200,a0S 

C zIF ORY: BR 


DELAY FOR DRIVE READY 
177410 : SEE IF STOP ON OPERATION 
) F NOT: BR 


000302 : PC, CKSWR CHECK FOR CNTL G 


177454 OPDX,R4 SET DELAY MULTIPLIER 
177446 : orn. Ad SET OPERATION DELAY 


E 
R4 
001260 001372 EO DELAY BETWEEN OPERATIONS 
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004767 000152 PC ,RWND :GO SEE IF REWIND 
005300 RO 
001254 A 7 1F SEQUENCE NOT DONE: BR 


032777 040000 177336 #40000, aSwR SEE IF HALT ON SEQUENCE 
001401 1$ 
000000 


000230 : PC, CKSWR CHECK FOR CNTL G 
177464 START 


REGISTER SETUPteteeeerer 


177256 a GET ADDRESS OF CS1 
000015 SET NUMBER OF REGISTERS 
000602 La) GET FIRST ADDRESS 
000002 : 2. ; INCREMENT 
a LOAD ADDRESS 
SEE IF DONE 
71F NOT: BR 


SAVE VECTORS 


000004 :SET UP FOR TIMEOUT 
177777 177242 os sREFERENCE HARDWARE SWITCH REGISTER 


3$ 
1$: (SP)+, (SP)+ sADJUST STACK 
000176 177226 : #SWREG, SUR sPOINT TO SOFTWARE SWITCH REG 
000004 : (SP)+,a#4 RESTORE VECTORS 
000006 (SP)+,a#6 
000636 000176 QFSUR ,#SWREG 21S SOFTWARE REG USED 
GO ;BRANCH IF NO 
000156 PC,CNTLU sALLOW SOFTARE SWITCH REGISTER TO BE CHANGED 
000167 177340 : START ELSE GO START EXECUTION 


FROM EOT (PER SW13) 
032777 020000 177170 : #20000 ,aSwR SEE IF IGNORE EOT 
B RWNDX :IF SO: BR 
002000 177134 SEE IF AT EOT 
RWNDX IF NOT: BR 
000040 177122 NIT 
SET DRIVE NUMBER 
SET SLAVE NUMBER 
Mm 7,aC START REWIND 
177074 : SEE IF ORY 
B c1F NOT: BR 
177064 : SEE IF PIP RESET 
NDB z1F NOT: BR 
;RESET 


ET STACK 
177242 J s RESTART SEQUENCE 
; RETURN 
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sCKSWR ROUTINE THAT ALLOWS THE LOADING OF LOC.176, SWREGeeeeeeeere 
sFROM THE TTY AT SELECTED POINTS WITHIN THE PROGRAM*eeeeecetee 


022767 000176 177070 : #SWREG, SUR sSOFTWARE SWITCH REG PRESENT 
OUT GET OUT 


BNE :NO, 
177064 YES,WAIT FOR 
T READY, GET a 

177060 177142 TKB,TIB sAND STRIP OFF 
177600 177134 #177600,TIB ; THE GARBAGE 
000007 177126 oo 31S ITA < @ 
002512 #SCNTG,R4 

PC, TTOUT 

#SMSUR RS 


#SMNEW RG 

PC, TTOUT 

asTEMPST 

PC, SREAD :GO READ A LINE 

PC RETURN TO MAIN BODY OF PROGRAM 


: TEMPST 
177044 L) #7, COUNT 
: PC,TTIN :GO READ A CHARACTER 
177026 #177600,TIB STRIP OFF GARBAGE 
000025 177020 #25,T1B 71S IT AU? 
2s ;BRANCH IF NOT 
(SP)+ :POP THE STACK 


U 
000015 177004 : CMPB aa 


;BRANCH IF NOT 
000200 177002 #200,RDSW 
000150 PC, TCRLF sECHO IT WITH <LF> 
000007 176766 #7, COUNT WAS IT FIRST CHARACTER 
7$ CHANGE SWR IF NOT FIRST ONE 
(SP)+ a pe STACK 


OUT ; 
000060 176746 : + laa 
000067 176736 + 1 ame 


002535 : #SQUEST,R4 
000052 PC, TTOUT 


:START OVER IF NOT LEGAL CHARACTER 
176726 


176700 GET NITTY-GRITTY 
176702 18. i 
176672 count ONLY WANT 6 DIGITS 


1$ 
016777 176666 176564 : TEMPST ,@SwWR CHANGE SWITCH REGISTER CONTENTS 
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002052 000735 BR 8$ 


SEQ 0015 


sTTY OUTPUT SUBROUTINE teeeeeeerere 


002054 112467 176650 (R4)+,T0B 
002060 000043 176642 C 


000045 176632 
000064 
000015 176614 TCRLF: 


mM 
TCRLFA: 
J 
:D0 FILLERS 


176562 
176556 


176546 
176450 


176526 176442 
000207 TEX: 


012767 000001 000222 OCTPE: 


000212 OCTP: CLEAR FLAG FOR LEADING ZERO 
OCTPE1: SEE IF NUMBER IS ZERO 
B OCTPO :1F NOT ZERO: BR 
000162 PC,OCTPG1 ELSE PRINT ZERO 
000120 J OcTPS ; 
100000 OCTPO: #100000 ,R4 
8 OCcTP1 


:1F NOT: BR 
000001 


#1,R4 
000116 sPRINT 1 
000006 OCTP2 


R4 
000104 J :PRINT 0 
R3,R4 


POSITION DIGIT 


R4 
000064 sPRINT DIGIT 2 
R3,R4 


0023 
002310 010304 
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R4 
000052 sPRINT DIGIT 3 
3,R4 


4 
000036 sPRINT DIGIT 4 
R3,R4 


000022 as 
000014 JS sPRINT DIGIT 5 
000240 176342 OCTPS: 
177576 J PRINT SPACE 

R PC sEXIT 
177770 OCTPG: 
000030 

R 
000020 OCTPGO: 

OCTPG1: 


177536 


000000 > 60 sFIRST CHAR FLAG 
TTTY READ SUBROUTINE t#tteeeres 
005077 176174 


176154 


176150 176232 
176144 


176220 176136 
002510 


002512 021507 SCNTG: . 
2516 051127 020075 SMSWwR: . /2SWR= #/ 


047040 053505 $MNEW: . / NEW= #/ 
002535 077 021445 SQUEST: . sci /2%8/ 
000100 ; 100 
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005000 ~ -=5000 

000100 -REPT 
177777 
-ENDR 


SEQ 0017 


100 


000001 ~ END 
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s 001022 000622 002262 001536 000644 


AS 
AO 


= 005200 


0632 
001232 002240 001520 000646 
- ABS. 005200 000 


ERRORS DETECTED: 0 


»CZTUTA.SEQ/SOL_CZTUTA.P11 
RUN-TIME: 3 7 .3 SECONDS 


RUN-TIME RATIO: 23/11=2.0 
CORE USED: 14K (28 PAGES) 





